<%@language=vbscript%>
<% 
	Session("FormName")="F19"
	Session("VanBan")=""
%>
<!--#include file="..\CheckSession.inc"-->
<!--#include file=..\getFormName.inc-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="vi">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<!--#include file="..\RootContent.inc"-->
<!--#include file="..\jvFunction.inc"-->
<script language=VBScript runat=server>
	' H&#224;m &#273;&#7883;nh d&#7841;ng l&#7841;i ng&#224;y M/D/Y-> D/M/Y
	Function FormatDate(vDate)
	   If Not IsNull(vDate) Then
	        vM = Right("0" & Month(vDate), 2)
	        vD = Right("0" & Day(vDate), 2)
	        vY = Right("19" & Year(vDate), 4)
	        FormatDate = vD & "/" & vM & "/" & vY
	   End If
	End Function
	Function SaveDate(vDate)
		dim bvitri1
		dim bvitri2
	   vDate=trim(cstr(vDate))
	   bvitri1=instr(1,vDate,"/")
	   bMonth=left(vDate,bvitri1-1)
	   bvitri2=instr(bvitri1+1,vDate,"/")
	   Dim Temp
	   Temp=right(vDate,len(vDate)-bvitri1)
	   bDay=left(Temp,bvitri2-bvitri1-1)
	   bYear=right(vDate,len(vDate)-bvitri2)
       SaveDate=bDay+"/"+bMonth+"/"+bYear
	End Function
</script>
<script language=javaScript>
function TxtNgayHT_onkeyup(str){
var keycode
keycode=window.event.keyCode
	if (isEdit(keycode,str)){
		Noidung.TxtNgayHT.value=editdate(trim(str))
	}
}
</script>
<body bgcolor=#F8F9D9 leftmargin=2 topmargin=0 style="font-family:times new roman" >
<Form name="Noidung" Method="Post">
  <table border=0 bgColor=#bdd5d0 cellPadding=0 cellSpacing=0 width="100%">
  <tr>
  <td WIDTH="15%">
	<input name=TxtNgayHT maxLength=10 size=10 value="<%=FormatDate(date())%>" style='font-family: Arial; width:100%; text-align: center' LANGUAGE=javascript onkeyup="return TxtNgayHT_onkeyup(this.value)" >
  </td>
  <td WIDTH="85%">
  <center><b>Có 200 công văn đến trong ngày <%=FormatDate(date())%></b></center>
  </td>
  </tr>
  </table>
  </Form>
  </body>
<%
	Conn.Close
	set Conn=nothing
%>